Top 10k strings from MicroHobby Semanal - Issue 077-080 (1986)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 part=part+1
3 ;"Sabiendo que ";x(3
3 );" y ";x(4
3
2 );" y ";x(2
2 );" son los terminos ";x(1
2 (comzinstr/256
2 (comzhex/256
2 ((comzhex+80
2 ((comzhex+49
1 ||||||||>>>>>>>>
1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx8888888888888888888888888888888888888888888888888888888888888888
1 ter2=ter2+1
1 sum-solu))>solu/100
1 srl=(comzhex+80
1 s$="la suma ="
1 s$="el producto = "
1 s$="ayuda"
1 pas=pas-col
1 pas=pas+col
1 panta
1 p$="geometrica"
1 p$="aritmetica"
1 n=comzinstr
1 n (n+1) (n-1) (2*n) (2*n+1)(2*n-1)(2*n+2)(2*n-2)n^2 (n^2-1)(n^2+1)n^3 (2*n^2)(n^2-3)
1 i(x$,i$,p)
1 h$="E2")+6
1 h$="C3")+14
1 h$="B2")+12
1 h$="B1")+8
1 h$="A1")+10
1 h$(x);"h "''
1 generar INSTRING
1 generar HEX$
1 fo,co,fd,cd,fi,ci
1 fich=fich-1
1 f$="d*n+b":
1 f$="b*r^n":
1 e$-sol)>1e-5
1 d$="E2")+6
1 d$="C3")+14
1 d$="B2")+12
1 d$="B1")+8
1 d$="A1")+10
1 cont=cont+b:
1 comzinstr=
1 comzinstr-1
1 comzinstr+132
1 comzhex+90
1 binhexl=(comzhex+49
1 b$(p)=a$(7
1 ayuda=1.2345
1 Triangulo
1 Sustituye los datos en la expre-sion general y tendras ";:
1 Reset
1 Progresion
1 PROGRAMAS INCLUIDOS EN
1 PARE LA CINTA
1 Krakatoa KO
1 Impresion F
1 INSTRING demo
1 INSTRING /HEX$ Demo
1 Hobby Press
1 Grafic
1 Espia
1 ENTER para solucion)"
1 DIR=DIR-COL
1 DIR=DIR+PAS
1 DIR=DIR+COL
1 D.L.: M-36598-84
1 Castellano
1 Cargador M
1 CINTA 20 CARA A
1 Basic CM n
1 B DD D@0DD
1 ALEJANDRE '86
1 >B><>B<><B
1 >B><><<><B
1 ;s$;" es ";solu:
1 ;"TE ATREVES OTRA VEZ ? (S/N) ";
1 ;"Si entre los numeros b1 y b2 de una progresion ";p$;" quiero interpolar k numeros"'o$
1 ;"Si ad y ak son los terminos d y k de la progresion;";:
1 ;"Sabiendo que los 5 primeros terminos de la serie son"
1 ;"RAPIDA....2"
1 ;"QUIERES UNA SOLUCION ? (S/N) ";
1 ;"Pulsa una tecla":
1 ;"PULSE PARA EMPEZAR":
1 ;"PUES HALA!!!"
1 ;"PON ATENCION";
1 ;"PON ATENCION"
1 ;"PARTIDA 1 "
1 ;"OTRA PARTIDA? (s/n)"
1 ;"NORMAL....1";
1 ;"MOVIMIENTO";
1 ;"MICROHOBBY";
1 ;"Lo siento, pero esta mal ,prueva otra vez ":
1 ;"La solucion es:"'"a(n)= ";e$:
1 ;"La solucion es "'"a(n)=";e$:
1 ;"La expresion general de una progresion ";p$;" es:"'" a(n)= ";f$
1 ;"JUGADA 1 ";
1 ;"Interpolar ";k;" terminos entre ";x(3
1 ;"INCORRECTO"
1 ;"HASTA - ";
1 ;"G A M E O V E R"
1 ;"En efecto, esta bien ":
1 ;"El termino general de la serie es a(n)= ";e$
1 ;"ESTA CLARO ?";
1 ;"ERROR EN DATAS":
1 ;"ELIJA LA VELOCIDAD";
1 ;"Dime cual es el termino general (
1 ;"Dame los terminos del ";q1;" al ";q2;" de esta serie"
1 ;"DESDE - ";
1 ;"Cual es el termino ";(rnu);" de esta progresion"
1 ;"28000 46000":
1 ;"!!CORRECTO!";
1 ;"!!CORRECTO!!"
1 ;" EL ESPIA ":
1 ;" PARA EL CASSETTE "
1 ;" ";
1 ;" "
1 ;" ";
1 ;" ":
1 ;" ":
1 ;" ":
1 ;" "
1 ;" ":
1 ;" "
1 9","6","7","6","0","12","1","4","10","9","1","1","5","1"
1 8","9","1","8","7","13","0","12","6","2","13","0","9","1","6","12","8","10","9","4","7","13","12","1","6","11","2","6","11","9","3","1","3","5","6","12","5","4","10","9"
1 8","14","0","0","
1 7","13","11","12","6","9","6","2","1","3","5","1","1","6","11","10","9","6","11","9","3","8","9","8","2","8","0","7","6","0","
1 65288,y estara activa hasta que teclees
1 4- GENERAL
1 0","7","5","16","
1 ,srl,srh,193
1 ,comzinstr-256
1 ,comzhex-256
1 ,binhexl,binhexh,17
1 ,binhexl,binhexh,123
1 *(h$="E5"):
1 *(h$="D4")+16
1 *(h$="D1")+4
1 *(d$="E5"):
1 *(d$="D4")+16
1 *(d$="D1")+4
1 *(a$="Q")+17
1 *(a$="O")+(a$="P")+4
1 *(a$="A")+8
1 *(a$="8")+18
1 *(a$="7"):
1 *(a$="6")+24
1 *(a$="5")+20
1 *(a$="0")+2
1 );" sabiendo que son terminos de una progresion ";p$
1 );" es el termino numero ";x(1
1 );" de la progresion. Obtener la expresion general."
1 );" de la progresion. Dame el termino general";
1 );" de la progresion. ";
1 )+"/"+b$(2
1 (f);" ";sol:
1 (ad*ak)^(k-d+1)":
1 "una ecua-cion con una incognita":
1 "se encuentra a partir de la posicion ";pos;" de la primera cadena"'''
1 "que la desactivara.Ahora esta activada.Para hacer que se ejecutepulsa simultaneamente las teclas ""SYMBOL"" y ""SPACE"""
1 "para activar la rutina reset,so-lo tienes que hacer
1 "n^3","(2*n^2)","(n^2-3)"
1 "n^2","(n^2-1)","(n^2+1)"
1 "n","(n+1)","(n-1)"
1 "la suma vale (ad-ak*r)/(1-r)":
1 "la suma vale (ad+ak)*(k-d+1)/2":
1 "la razon es r=(b2/b1)^(1/(k+1))"
1 "la diferencia es d=(b2-b1)/(k+1)"
1 "el producto vale
1 "dos ecuaciones con dos incognitas":
1 "deseas activar el reset? ";
1 "a(";(rnu);")= ";zxc
1 "Te recuerdo que el RESET no fun-cionara en rutinas que desacti--ven las interrupciones,como son el
1 "Obtener la suma desde el primero hasta el segundo."
1 "Obtener el producto desde el primero hasta el segundo.":
1 "Nombre?";s$:
1 "MicroHobby Semanal numeros 77 a 80
1 "Longitud?";lo
1 "Introduce una cadena:",x$:
1 "Introduce un numero decimal:"'x:
1 "INSTRING o HEX$ [I,H] ";
1 "INS/HEXD"
1 "Este programa lo puedes borrar, para hacer el tuyo,pero te re- cuerdo que si haces NEW,deberas hacer RANDOMIZE USR 65288 para volver a activarla"
1 "Elige una dificultad de 1 a 4"'dif
1 "Direccion de comienzo: ";comzinstr
1 "Direccion de comienzo: ";comzhex
1 "Cadena:"'"""";x$;""""''
1 "Cadena a buscar:",i$:
1 "Cadena a buscar:"'"""";i$;""""''
1 "A1","B1 B2","C1 C2 C3","D1 D2 D3 D4","E1 E2 E3 E4 E5"
1 "A partir de la posicion:",p:
1 "A partir de la posicion :";p''
1 "8","7","13","2","8","9","13","9","6","11","11","0","10","2","8","7","13","0","7","4","14","0","2","1","13","0","9","5","1","4","10","9","13","0","7","1","3","5","8","7","1","4","9","8","10","14","0","9","8","10","0","2","1","8","0","7"
1 "6","12","8","11","11","10","14","7","1","13","0","7","6","9","1","1","15","8","2","8","9","4","9","3"
1 "6","10","2","4","
1 "5","1","4","10","9","5","6","9","1","1","5","1","4","12","8","7","
1 "3- PROG. GEOMETRICAS","4- GENERAL"
1 "(2*n+2)","(2*n-2)"
1 "(2*n)","(2*n+1)","(2*n-1)"
1 "(1) TECLADO O (2) KEMPSTON ";key
1 " si la razon es r=";da:
1 " si la diferencia es d= ";da:
1 " MENU ","1- SERIES","2- PROG. ARITMETICAS"
1 Ricardo Serral Wigge
1 ESTA CINTA UTILIZA
1 O LOAD "<NOMBRE>"
1 PARA CARGAR LOS
1 LOAD ""
1